;;;QQ:67762207
[@doubleexppre]
{
#IF
#ACT
MOV D0 0
loadvalue D0 "ϵͳ.INI"  ˫npcʱ

#IF
Esmall D0 %CURHOUR
#ELSEACT
break
#elsesay
<$OUTPUT(D0)>СʱŻῪ˫ϵͳ!\\
<뿪/@EXIT>\


#IF
checkcmd CHECKDOUBLEEXP
#ACT
mov D0 %P9

#IF
dayofweek Mon
#ACT
dec D0 720


#IF
dayofweek Tue
#ACT
dec D0 600

#IF
dayofweek Wed
#ACT
dec D0 480

#IF
dayofweek Thu
#ACT
dec D0 360

#IF
dayofweek Fri
#ACT
dec D0 240

#IF
dayofweek Sat
#ACT
dec D0 120


#IF
large D0 0
#SAY
____{FCOLOR/10}ãӭȡ˫ʱ䡣{FCOLOR/12}\
ÿȡ2Сʱ˫ʱ䡣\
һڿۼơÿ24:00\\
컹ʣ{FCOLOR/13}<$OUTPUT(D0)>{FCOLOR/12}˫ʱ䡣\
<ȡ1Сʱ˫ʱ/@doubleexp1hour(60)>  <ȡ2Сʱ˫ʱ/@doubleexp1hour(120)>\
<ȡ3Сʱ˫ʱ/@doubleexp1hour(180)>  <ȡ4Сʱ˫ʱ/@doubleexp1hour(240)>\\
<ʹ280(4.6Сʱ)˫ʱһ1Ʒħʯ/@doubleexptoeat>\
</@BACK>
#ACT
mov ʣʱ %D0
#ELSESAY
Բ𣬽˫ʱѾȫˡ\
ȡ\\
<ر/@exit>

[@doubleexp1hour()]
#ACT
mov D1 %ARG(1)

#IF
Large D1 %ʣʱ
#ACT
mov D7 %ʣʱ
#ELSEACT
mov D7 %D1

#IF
!checkcmd ISDUOEXP
#ACT
actcmd STARTDOUBLEEXP %D7
#SAY
˫ʱ俪ʼ <$OUTPUT(D7)>ӡ\\
<ر/@exit>
#ELSESAY
Բ㵱ǰȡ˫δ.\
ϵͳʾ˫֮ȡ.\\
<ر/@exit>



[@doubleexptoeat]
#IF
#ACT
mov D0 %ʣʱ

#IF
ELARGE D0 280
#ACT
actcmd READSQL "TBL_SCRIPTQUEST" "" "Ծ"

#ELSEACT
break
#ELSESAY
Բ˫ʱ䲻280ӣ޷Ϊһ\\
<ر/@exit>


#IF
#ACT
MOV D2 %CURHOUR
MOV P1 %D2
MOV P2 20      ;;20Сʱ
DIV P1 P2
MOV D3 %P9    ;;ڿԳԵĴ
MOV D5 %D3

#IF
ELARGE Ծ 1  ;;ѾԵĴ
#ACT
actcmd SETDOUBLEEXP - 16800000
Dec Ծ 1
actcmd WRITESQL "TBL_SCRIPTQUEST" "" %Ծ
dec D5 %Ծ
#SAY
ɹʹ280ӵ˫ʱһ1Ʒħʯ.\
ڹƷħʯ<$OUTPUT(D3)>.\
ζһ㻹<$OUTPUT(D5)>.\
<ر/@exit>
#ELSEACT
break
#ELSESAY
ڹƷħʯ<$OUTPUT(D3)>.\
Ŀǰ<$OUTPUT(D3)>.\
ɶһĴΪ0޷Ϊһ.\
<ر/@exit>


#IF
ESMALL Ծ 0 
#ACT
mov Ծ 0
actcmd WRITESQL "TBL_SCRIPTQUEST" "" %Ծ


}
;;;QQ:67762207
